home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 Reader Awards / macformat-098.iso / MF Data / MFCD / 00001.ls next >
Encoding:
Text File  |  2000-11-01  |  782 b   |  40 lines
  1. on startMovie
  2.   global gAdvertCounter, gAdvert, gAdvertTotal, gAdvertDelay, gMFCDNo
  3.   installMenu("menuList")
  4.   set the centerStage to 1
  5.   gAdvertTotal = the number of castMembers of castLib "Advert"
  6.   gMFCDNo = "MacFormat CD" && 98
  7.   gAdvertCounter = 0
  8.   gAdvert = random(gAdvertTotal)
  9.   gAdvertDelay = 400
  10.   AdChange()
  11. end
  12.  
  13. on AdChange
  14.   global gAdvertCounter, gAdvert, gAdvertTotal
  15.   if gAdvert = gAdvertTotal then
  16.     gAdvert = 1
  17.   else
  18.     if gAdvert < gAdvertTotal then
  19.       gAdvert = gAdvert + 1
  20.     end if
  21.   end if
  22.   sprite(50).member = member(gAdvert, "Advert")
  23.   updateStage()
  24.   gAdvertCounter = 0
  25. end
  26.  
  27. on splash
  28.   set the centerStage to 1
  29.   window("MacFormat").windowType = 1
  30.   open(window("MacFormat"))
  31. end
  32.  
  33. on demos
  34.   go("demos")
  35. end
  36.  
  37. on Internet
  38.   go("internet")
  39. end
  40.